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Nella lezione 21 
ti ho spiegato il 
funzionamento dei 
files sequenziali su 
nastro per memorizzare 
sulla cassetta i dati 
di un programma. 

I files sequenziali possono 
essere usati nello stesso 
modo anche su disco, l'unico 
differenza è nell'istruzione OPEN, 
che dovrà aprire l'accesso al disco 
anziché al registratore. 
Per aprire su disco un file sequenziale per lo registrazione dei 
dati, dovrai scrivere: OPEN 1,8,2 "DATI,S,W". 

Invece per caricare i dati: OPEN 1,8,2 ,"DATI,S,R". 

Sul disco, oltre che i files sequenziali, possono essere usati 
anche quelli casuali: RANDOM e RELATIVI. I RANDOM 
servono per memorizzare dati in qualsiasi posizione del 
disco, specificandone la traccia e il settore. 

Il loro uso comunque è molto raro. 

I REL ATIVI invece hanno un impiego molto più vasto 
soprattutto per le applicazioni professionali; quando si 
intende trattore una gronde quantità di doti che devono 
essere rintracciati velocemente. 

Infatti, mentre in un file sequenziale per leggere un 
determinato record è necessario primo leggere tutti i record 
precedenti; nei files relativi è possibile leggere direttamente 
2 il record voluto specificandone il numero. 




Naturalmente un file relativo prima di essere usato dovrà 
essere creato, usando l'istruzione OPEN come nel seguente 
esempio: 

OPEN2,8,2 "NOME FILE,L,"+CHR$(100). 

Primo di aprire un file relativo è consigliabile aprire il canale 
dei comandi al disco con l'indirizzo secondario 15, quindi: 

OPEN15 r 6,15. 


Questo servirà poi per vedere, nel corso delle operazioni, se 
si presentono errori. 

Usando infatti l'istruzione INPUT#15,A r D$ r CrD verranno 
assegnati i codici di errore olle variabili nel seguente modo: 

A - numero dell'errore (se è minore 
di 20 non si trotto di un errore) 

DS - descrizione dell'errore 
C - traccio in cui si è verificato l'errore 
D - settore in cui si è verificato l'errore 
Uno volta creato un file relativo è 
possibile aprirlo, per poter leggere 
o scrivere i doti, scrivendo: 
OPEN2,8,2 "NOME FILE' 



< 



Prima di compiere operazioni di lettura o di scritturo di un 
record è necessario posizionare il PUNTATORE AL RECORD su 
quello desiderato, con lo seguente istruzione: 

PRINT#15, "P"CHR$ (2) CHR$ (DL) CHR$ (DH) CHR$ (P). 

Per scrivere i doti nel file, dopo essersi posizionati sul record 
desiderato, basterà usare l'istruzione PRINT . 

Ad esempio: PRINT# 2 r X$. 

Per leggere invece i doti in un file relativo, sempre dopo over 
posizionato il puntatore al record voluto, è possibile usando 
l'istruzione INPUT#, oppure GET#se si vuole leggere un 
carattere per volto. 

Ad esempio: INPUT#2,X$. 


TABELLA ELENCO DEI MESSAGGI DI ERRORE DELL'UNITA' A FLOPPY 


0 Non vi sono errori 

1 Messaggio in risposta allo cancellazione di file. Non vi sono errori. 
2-19 Non usati come messaggio errore. Do ignorare. 

20 Intestazione del blocco non trovato sul disco. 

21 Mark di sincronismo non trovato. 

22 Blocco doti non presente. 

23 Errore checksum nei doti 

24 Errore di codifica del byte. 

25 Errore di verifica in scritturo. 

26 Tentativo di scrittura con protezione inserito. 

27 Errore di checksum nell'intestazione. 

28 Estensione dei dati nel blocco successivo. 

29 Mancato coincidenza dell'ID del disco. 

30 Errore generico di sintassi. 

31 Comando non valido. 

32 Lineo troppo lunga. 

33 Nome di file non valido. 

34 Nessun file è doto. 

39 File comando non trovato. 

50 Record non presente. 

51 Overflow su record. 

52 File troppo grande. 

60 File aperto per scrittura. 

61 File non aperto. 

62 File non trovato. 

63 File già esistente. 

64 Verifico fallito per il tipo di file. 

65 Nessun blocco. 

66 Traccia o settore illegale. 

67 Traccia o settore illegale del sistemo. 

70 Nessun canale disponibile. 

71 Errore nel direttorio. 

72 Disco o direttorio completo. 

73 Messaggio di accensione o tentativo di scrittura con 
versione DOS non compatibile. 

74 Unità a disco non pronto. 




Listato dell'esercizio: 
ESEMPIO PRATICO (CDM 64) 

10 p.oKe53230,0 ! poKe5323 1 ,0 : i =9£0 
£0 input " flEZ-g t? arola! " ; p $ 

30 ifCp$= 1 "' ) + Clen<p$)>12)then£0 
48 prinra'':y = int(i/aen(p$) + l)) 

50 forK = Hov 

60 c$=mid$< "3&SMB »*' , int (rnd <0)*7+l ) , 1 > 

70 printc$; p$" 

80 nextK 

90 -f ort = lto4000! nextt : pr int "gl" 


Listoto dell'esercizio: 

ESEMPIO PRATICO (VIC 20) 

Il listato è identico a quello per il CBM 64, tranne nello linea 

10 poKe36879,8si=434 

Listato dell'esercizio: 

COMPLETA IL LISTATO 

10 forx = lto5!-fory = ltoE*J 
£0 l$<x)=[*3+chr*(int<rnd(0)*5+71)) 

30 nexty 

40 printx;l$<x>:nextx!s=t*3 
50 forx=lto4:C*3y=lto4 
60 ii 1 C*J XISKy + 1 >then30 
70 h*=l;$<y>:i$<y>=l*<y + l>:i*<y + i:> = i:*J 
80 nextyinextx * 

90 -f or C * Jto5 

100 print" scrivi la stringa 'Jx 
110 inputa$:ita*<)then[*] 

1£0 C # Jx 

130 f=ti:print"tempo :";int < <f-s)/[*]> 

140 goto C * J 

150 print "risposta! ";t*3<x) 

160 end 
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PROGRAMMIAMO INSIEME (CDM 64) 

10 po«e53£30,7 !poKe53£31 ,7 
15 open 15,3,15 :K$=chr$<13> 

£0 p r i n t " 33EGEEGGEI1 ~ creazione file" 

30 print~ inserimento" 

40 pr int "EI3 - r icerca" 

50 pr int "SI4 ~ fine programma" 

60 input "SEElscelta <l-4)";s 
70 if<s< 1 > + <s>4)then60 
80 cnsgoto 100,£00,600,300 
100 P=100 

1£0 pr int " Sfcfclefclat t e n d i un attimo" 

140 open£,3,£,"dati,1,"+chr*<74) 

150 gosub 1000 

160 pri n t # 15 ,"p"chr$(£)chr$<l)chr*(h) 

170 pr inttt£, sgosub£000 
180 c1ose£sgoto£0 

£00 input " StsbCdi n s e r imento codice”; i 
££0 if< i< 1 > + <i>100)then£00 
300 input"nome s" ; n * 

310 if(len(n$)=0)+(len(n$)>£0)then300 
3£0 input " ind ir izzo !'*; i* 

330 if<len<i*)=0)+<len<i*>>20>then3£0 
340 input "c itta 1 : ";c$ 

350 if<len(c$)=0)+(len(c$)>£0)then340 
360 input "telefonos ";t* 

370 if(len<t$)=0)+(len(t$)>10>then360 
380 open£,8,£, "dat i " 

390 p=i:gosub1000 

400 print#15,"p"chr$(£)chr$(l>chr*<h)chr$(1) 

4£0 pr int#2,n*K*i*K*c*K*t*:gosub£000 
440 c1ose£sgoto£0 

600 input ”9EEÓ~ i cere a codice" ;r 
610 if<r<1> + <r>100)then600 
620 p=rsgosub1000 
630 open£,8,2, "dat i " 

640 print#15,"p"chr$(£)chr$(l) c h r * < h)chr$<1) 

660 gosub£000:input#£,n*,i*,c*,t* 

670 close£ 

680 printn*!printi$:printc*sprintt* 

700 gosub3000sgoto£0 
300 dose 15:end 

1000 h = int <p/256) s 1 =p -h *£56 s return 

£000 input#15,a,b*,c,d 

2010 if<a<£0>+<a=50)thenreturn 

£0£0 printa;b$;c;d:end 

3000 gety$iify*= " ”then3000 

3020 return 

PROGRAMMIAMO INSIEME (VIC 20) 

11 listato è identico a quello per il CBM 64, tranne nella lineo: 

10 po«e36879,127 
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Soluzione dell'esercizio: 
COMPLETA IL LISTATO CDM 64 

(lez. 28) 

10 poKe53280,2spoKe53281 ,2 

£0 pr intchr$< 147 > : y = 10£4 : c =55£96 

30 -forx =0to 19 

40 p =x#40 +19-x 

50 poKev+p ,£33 :poKec+p ,7 

60 i-f x =0theny =£0 : goto 1 10 

70 -fory =£0-xto 19+x 

80 p=x*40+y 

90 poKev+p,160spoKec+p ,7 
100 nexty 

110 p =x *40+y:poKew +p,££3:poKec+p,7 
1£0 nextx 

130 -f orv = lto5 s i or s = lto6 
140 poKe53£80,s:poKe53281 ,s 
150 -f or K = lto£00 : nextK 
160 nexts,y:end 


Soluzione dell'esercizio: 
COMPLETA IL LISTATO VIC 20 

(lez. 28) 

10 poKe36879,4£ 

£0 printchr$<147> :v=7680:c=38400 

30 forx=0to 10 

40 p=x*2£+10-x 

50 poKev+p,233:poKec+p ,7 

60 ifx=0theny = 11 : goto 110 

70 tory=11-xto10+x 

80 p=x*££+y 

90 poKeo+p,160:poKec+p ,7 
100 nexty 

110 p=x*2£+yipoKeu+p,223:poKec+p ,7 
120 nextx 

130 fory = lto5:fors = lto6 
140 poKe36879,s* 17+8 
150 -forK = lto200:nextK 
160 nexts,v:end 
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